#!/usr/local/bin/perl
use warnings;
sub main()
{
$i = 0;
$i = 1;

while ($i) {
print "test break";
last;
}


$i = 0;

 for($i = 0; ($i<2); $i = ($i+1)){ {
print "for loop"."\n";
if (($i==1))
 {last;
}
}
} 

return 0;
}

print main()."\n";
